if((iqd1=iqd2)==TRUE)
	{	
	lines(density(y,width=2*iqd2),xlab="",ylab="", main="", add=TRUE, col=6)
	}
else
	{
	plot(density(y,width=2*iqd2),density(y,width=2*iqd2), xlab="Varivel 2",ylab="",type="l", main="Densidade padro",col=6)
	}


plot(density(x,width=2*iqd1),density(y,width=2*iqd2), xlab="Varivel 1",ylab="",type="l", main="Densidade padro - V.1",col=c(4))
	plot(density(y,width=2*iqd2),density(y,width=2*iqd2), xlab="Varivel 2",ylab="",type="l", main="Densidade padro - V.2",col=6)
	

	iqd1 <- summary(x)[5] -	summary(x)[2]     ## faz a diferena entre o quinto elemento x e o segundo
	iqd2 <- summary(y)[5] -	summary(y)[2]     ## faz a diferena entre o quinto elemento x e o segundo
